home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Grand Slam 3
/
Grand Slam 3.iso
/
029
/
kos_i7.arj
/
SOURCE.ARJ
/
KOS1.SCM
< prev
next >
Wrap
Text File
|
1995-09-12
|
2KB
|
80 lines
Header( 1 36:30:00 37:00:00 26:00:00 27:40:00 )
LatRange( 36:30:00 37:00:00 )
Author( Bertos Vierstratolotos )
macro( kos.txt 36:41:56 26:49:08.75 kos00.r8 )
macro( kos.txt 36:49:19 26:49:08.75 kos01.r8 )
macro( kos.txt 36:41:56 26:58:20.30 kos03.r8 )
macro( kos.txt 36:49:19 26:58:20.50 kos04.r8 )
macro( kos.txt 36:56:42 26:58:20 kos05.r8 )
macro( kos.txt 36:49:19 27:07:32.2850 kos07.r8 )
macro( kos.txt 36:56:42 27:07:32.2850 kos08.r8 )
macro( kos.txt 36:56:42 27:16:44.2850 kos11.r8 )
macro( kosmnt.txt 36:51:23.07 27:19:42.29 kosmnt.r8 4.8 )
macro( kosmnt.txt 36:51:14.46 27:15:35.23 kosmnt.r8 5.2 )
macro( kosmnt2.txt 36:50:32.84 27:10:28.00 kosmnt.r8 5.9 )
macro( kosmnt2.txt 36:40:39.39 26:56:38.94 kosmnt.r8 4.8 )
macro( kosmnt2.txt 36:38:22.99 26:57:18.81 kosmnt.r8 2.3 )
macro( kosmnt2.txt 36:42:58.90 26:56:28.46 kosmnt.r8 2.74 )
macro( kosmnt2.txt 36:46:37.40 27:01:44.73 kosmnt.r8 2.84 )
macro( kosmnt2.txt 36:45:19.27 27:00:13.45 kosmnt.r8 2.00 )
macro( kosmnt2.txt 36:53:44.34 27:17:43.50 kosmnt.r8 2.00 )
macro( kosmnt3.txt 36:47:42.00 27:05:30.00 kosmnt.r8 7 )
include( kos_i.txt )
macro( city.txt n36:45:29.20 e27:07:38.66 12 )
macro( city.txt n36:40:20.66 e26:58:45.54 12 )
macro( city.txt n36:45:29.20 e27:07:38.66 12 )
macro( city.txt n36:48:26.24 e27:01:56.37 12 )
macro( city.txt n36:50:54.79 e27:06:49.06 12 )
macro( city.txt n36:54:36.76 e27:18:16.09 12 )
macro( city.txt n36:51:24.33 e27:21:56.80 12 )
Area15( 36:30:00 37:00:00 26:00:00 27:40:00 )
LatRef( 36:47:42.00 )
Pattern( :J1 bigjet 3 0 )
Pattern( :J2 bigjet 3 0 )
Exit
:J1
SetColor( 0 2 )
SetColor( 1 4 )
SetColor( 2 4 )
SetColor( 3 5 )
SetColor( 4 2 )
SetPos( 36:48:10.4936 27:05:29.8881 127.637 )
Heading( 240 )
Sleep
Jump( :J1 )
:J2
SetColor( 0 1 )
SetColor( 1 3 )
SetColor( 2 3 )
SetColor( 3 6 )
SetColor( 4 2 )
SetPos( 36:48:12.4329 27:05:28.5537 127.637 )
Heading( 240 )
Sleep
Jump( :J2 )
End15
Area16( 36:30:00 37:00:00 26:00:00 27:40:00 )
RefPoint( 2 : 4 36:47:42.00 27:05:30.00 )
SenseBorder( :
-500 500
500 500
500 -500
-500 -500
)
SetElevation( 125 )
:
End16